
'
' *  NHibernate 代码模版
' 

Imports System.Collections.Generic

Namespace NCS
	''' <summary>
	'''	
	''' </summary>
	<Serializable()> _
	Public Class sample

		#Region "构造方法"
		Public Sub New()
			m_ID = 0
			m_name = Nothing
			m_cArea = 0
			m_c = 0
			m_sArea = 0
			m_s = 0
			m_mdate = DateTime.Now
			m_user = Nothing
			m_weight = 0
			m_method = Nothing
			m_methodid = 0
            m_isHc = 0
            m_isHs = 0
			m_sessionid = 0
			m_sampleid = 0
			m_anaxuhao = 0
			m_cInt = 0
			m_sInt = 0
			m_sIndex = 0
			m_cIndex = 0
			m_standardid = 0
			m_sIndex2 = 0
			m_cIndex2 = 0

			m_wlweight = 0
		End Sub
		#End Region


		#Region "私有变量"
		Private m_ID As Integer
		Private m_name As String
		Private m_cArea As Double
        Private m_c As Double
		Private m_sArea As Double
        Private m_s As Double
		Private m_mdate As DateTime
		Private m_user As String
		Private m_weight As Double
		Private m_method As String
		Private m_methodid As Integer
        Private m_isHc As Integer
        Private m_isHs As Integer
		Private m_sessionid As Integer
		Private m_sampleid As Integer
		Private m_anaxuhao As Integer
		Private m_cInt As Double
		Private m_sInt As Double
		Private m_sIndex As Integer
		Private m_cIndex As Integer
		Private m_standardid As Integer
		Private m_sIndex2 As Integer
		Private m_cIndex2 As Integer
		Private m_wlweight As Double

		#End Region


		#Region "公有属性"

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property ID() As Integer
			Get
				Return m_ID
			End Get
			Set
				m_ID = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property name() As String
			Get
				Return m_name
			End Get
			Set
				m_name = value
			End Set
		End Property



		'''<summary>
		'''
		'''</summary>
        Public Overridable Property c() As Double
            Get
                Return m_c
            End Get
            Set(ByVal value As Double)
                m_c = Value
            End Set
        End Property
        '''<summary>
        '''
        '''</summary>
        Public Overridable Property s() As Double
            Get
                Return m_s
            End Get
            Set(ByVal value As Double)
                m_s = Value
            End Set
        End Property

        '''<summary>
        '''
        '''</summary>
        '''<summary>
        '''
        '''</summary>
        Public Overridable Property cArea() As Double
            Get
                Return m_cArea
            End Get
            Set(ByVal value As Double)
                m_cArea = value
            End Set
        End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sArea() As Double
			Get
				Return m_sArea
			End Get
			Set
				m_sArea = value
			End Set
		End Property

	
		Public Overridable Property mdate() As DateTime
			Get
				Return m_mdate
			End Get
			Set
				m_mdate = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property user() As String
			Get
				Return m_user
			End Get
			Set
				m_user = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property weight() As Double
			Get
				Return m_weight
			End Get
			Set
				m_weight = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property method() As String
			Get
				Return m_method
			End Get
			Set
				m_method = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property methodid() As Integer
			Get
				Return m_methodid
			End Get
			Set
				m_methodid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
        Public Overridable Property isHc() As Integer
            Get
                Return m_isHc
            End Get
            Set(ByVal value As Integer)
                m_isHc = Value
            End Set
        End Property

		'''<summary>
		'''
		'''</summary>
        Public Overridable Property isHs() As Integer
            Get
                Return m_isHs
            End Get
            Set(ByVal value As Integer)
                m_isHs = Value
            End Set
        End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sessionid() As Integer
			Get
				Return m_sessionid
			End Get
			Set
				m_sessionid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sampleid() As Integer
			Get
				Return m_sampleid
			End Get
			Set
				m_sampleid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property anaxuhao() As Integer
			Get
				Return m_anaxuhao
			End Get
			Set
				m_anaxuhao = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property [cInt]() As Double
			Get
				Return m_cInt
			End Get
			Set
				m_cInt = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sInt() As Double
			Get
				Return m_sInt
			End Get
			Set
				m_sInt = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sIndex() As Integer
			Get
				Return m_sIndex
			End Get
			Set
				m_sIndex = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property cIndex() As Integer
			Get
				Return m_cIndex
			End Get
			Set
				m_cIndex = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property standardid() As Integer
			Get
				Return m_standardid
			End Get
			Set
				m_standardid = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property sIndex2() As Integer
			Get
				Return m_sIndex2
			End Get
			Set
				m_sIndex2 = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property cIndex2() As Integer
			Get
				Return m_cIndex2
			End Get
			Set
				m_cIndex2 = value
			End Set
		End Property

		'''<summary>
		'''
		'''</summary>
		Public Overridable Property wlweight() As Double
			Get
				Return m_wlweight
			End Get
			Set
				m_wlweight = value
			End Set
		End Property

		#End Region

		#Region "Rewrite Equals and HashCode"
		''' <summary>
		''' 
		''' </summary>
		Public Overloads Overrides Function Equals(obj As Object) As Boolean
			If Me Is obj Then
				Return True
			End If
			If (obj Is Nothing) OrElse (obj.[GetType]() IsNot [GetType]()) Then
				Return False
			End If
			Dim castObj As sample = DirectCast(obj, sample)
			Return (castObj IsNot Nothing) AndAlso (m_ID = castObj.ID)
		End Function
		''' <summary>
		''' 用唯一值实现GetHashCode
		''' </summary>
		Public Overloads Overrides Function GetHashCode() As Integer
			Dim hash As Integer = 57
			hash = 27 * hash * m_ID.GetHashCode()
			Return hash
		End Function
		#End Region
	End Class
End Namespace
